home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 3 / CU Amiga Magazine's Super CD-ROM 03 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-09].iso / misc / readers_utils / asmextras / wbtoback.s < prev    next >
Text File  |  1992-09-02  |  667b  |  42 lines
  1. *Wb To Back
  2. *By Mark Retallack
  3.  
  4. * ensure case dependent and debug
  5.     opt    c+,d+
  6.  
  7. * firstly get the required constants and macros
  8.  
  9.     include    intuition/intuition_lib.i
  10.     include    exec/exec_lib.i
  11.     
  12.  
  13. *open the intuition library
  14.     lea    intname(pc),a1
  15.     moveq    #0,d0                dont care which version
  16.     CALLEXEC OpenLibrary
  17.     tst.l    d0
  18.     beq    goawayfast            if didnt open
  19.  
  20.     move.l    d0,_IntuitionBase        store lib pointer
  21.  
  22. *call command
  23.  
  24.         CALLINT WBenchToBack
  25.         
  26.  
  27. *close Intuition library
  28.     move.l    _IntuitionBase,a1
  29.     CALLEXEC CloseLibrary
  30.     
  31.     
  32. goawayfast
  33.     moveq    #0,d0
  34.     rts
  35.  
  36.  
  37. * strings here
  38. intname        INTNAME                name of intuition lib
  39.  
  40.  
  41. * variables here
  42. _IntuitionBase    dc.l    0            for int library